BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search

/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Educ / Calc / MathPad 2.35.sit / Examples / incl / complex ops next >

MacBinary | 1995-04-30 | 1.3 KB | [TEXT/MPad]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: complex ops

Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sun Apr 30 20:04:18 1995, modified Sun Apr 30 20:04:18 1995, creator 'MPad', type ASCII, 636 bytes "complex ops" , at 0x2fc 398 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPad]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 63 6f 6d 70 6c 65 | 78 20 6f 70 73 00 00 00 |..comple|x ops...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 61 | 64 01 00 00 00 00 00 00 |.TEXTMPa|d.......|
|00000050| 00 00 00 00 00 02 7c 00 | 00 01 8e ab c9 d6 02 ab |......|.|........|
|00000060| c9 d6 02 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 54 3d 00 00 |........|....T=..|
|00000080| 2d 2d 2d 2d 2d 2d 20 75 | 74 69 6c 69 74 79 20 66 |------ u|tility f|
|00000090| 75 6e 63 74 69 6f 6e 73 | 20 66 6f 72 20 63 6f 6d |unctions| for com|
|000000a0| 70 6c 65 78 20 6e 75 6d | 62 65 72 73 20 2d 2d 2d |plex num|bers ---|
|000000b0| 2d 2d 2d 0d 2d 2d 20 41 | 72 72 61 79 73 20 63 61 |---.-- A|rrays ca|
|000000c0| 6e 20 62 65 20 75 73 65 | 64 20 74 6f 20 72 65 70 |n be use|d to rep|
|000000d0| 72 65 73 65 6e 74 20 63 | 6f 6d 70 6c 65 78 20 6e |resent c|omplex n|
|000000e0| 75 6d 62 65 72 73 2e 20 | 41 64 64 69 74 69 6f 6e |umbers. |Addition|
|000000f0| 2c 20 73 75 62 74 72 61 | 63 74 69 6f 6e 20 61 6e |, subtra|ction an|
|00000100| 64 20 6d 75 6c 74 69 70 | 6c 69 63 61 74 69 6f 6e |d multip|lication|
|00000110| 20 62 79 20 61 20 72 65 | 61 6c 20 63 61 6e 20 62 | by a re|al can b|
|00000120| 65 20 64 6f 6e 65 20 64 | 69 72 65 63 74 6c 79 2e |e done d|irectly.|
|00000130| 20 54 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 66 | The fol|lowing f|
|00000140| 75 6e 63 74 69 6f 6e 73 | 20 69 6d 70 6c 65 6d 65 |unctions| impleme|
|00000150| 6e 74 20 6f 74 68 65 72 | 20 62 61 73 69 63 20 6f |nt other| basic o|
|00000160| 70 65 72 61 74 69 6f 6e | 73 20 6f 6e 20 63 6f 6d |peration|s on com|
|00000170| 70 6c 65 78 20 6e 75 6d | 62 65 72 73 2e 0d 0d 43 |plex num|bers...C|
|00000180| 72 65 61 6c 28 72 29 20 | 3d 20 7b 72 2c 30 7d 20 |real(r) |= {r,0} |
|00000190| 20 2d 2d 20 63 72 65 61 | 74 65 20 61 20 63 6f 6d | -- crea|te a com|
|000001a0| 70 6c 65 78 20 66 72 6f | 6d 20 61 20 72 65 61 6c |plex fro|m a real|
|000001b0| 0d 43 61 62 73 28 41 29 | 20 3d 20 73 71 72 74 28 |.Cabs(A)| = sqrt(|
|000001c0| 41 5b 31 5d 5e 32 2b 41 | 5b 32 5d 5e 32 29 0d 43 |A[1]^2+A|[2]^2).C|
|000001d0| 6d 75 6c 74 28 41 2c 42 | 29 20 3d 20 7b 41 5b 31 |mult(A,B|) = {A[1|
|000001e0| 5d 2a 42 5b 31 5d 2d 41 | 5b 32 5d 2a 42 5b 32 5d |]*B[1]-A|[2]*B[2]|
|000001f0| 2c 41 5b 32 5d 2a 42 5b | 31 5d 2b 41 5b 31 5d 2a |,A[2]*B[|1]+A[1]*|
|00000200| 42 5b 32 5d 7d 0d 43 73 | 71 72 28 41 29 20 3d 20 |B[2]}.Cs|qr(A) = |
|00000210| 7b 41 5b 31 5d 2a 41 5b | 31 5d 2d 41 5b 32 5d 2a |{A[1]*A[|1]-A[2]*|
|00000220| 41 5b 32 5d 2c 32 2a 41 | 5b 31 5d 2a 41 5b 32 5d |A[2],2*A|[1]*A[2]|
|00000230| 7d 0d 43 63 75 62 65 28 | 41 29 20 3d 20 43 6d 75 |}.Ccube(|A) = Cmu|
|00000240| 6c 74 28 41 2c 43 73 71 | 72 28 41 29 29 0d 43 64 |lt(A,Csq|r(A)).Cd|
|00000250| 69 76 28 41 2c 42 29 3d | 7b 28 42 5b 31 5d 2a 41 |iv(A,B)=|{(B[1]*A|
|00000260| 5b 31 5d 2b 42 5b 32 5d | 2a 41 5b 32 5d 29 2f 28 |[1]+B[2]|*A[2])/(|
|00000270| 42 5b 31 5d 5e 32 2b 42 | 5b 32 5d 5e 32 29 2c 0d |B[1]^2+B|[2]^2),.|
|00000280| 20 20 20 20 20 20 20 20 | 20 28 42 5b 31 5d 2a 41 |        | (B[1]*A|
|00000290| 5b 32 5d 2d 42 5b 32 5d | 2a 41 5b 31 5d 29 2f 28 |[2]-B[2]|*A[1])/(|
|000002a0| 42 5b 31 5d 5e 32 2b 42 | 5b 32 5d 5e 32 29 7d 0d |B[1]^2+B|[2]^2)}.|
|000002b0| 43 6f 6e 6a 28 41 29 20 | 3d 20 7b 41 5b 31 5d 2c |Conj(A) |= {A[1],|
|000002c0| 2d 41 5b 32 5d 7d 0d 43 | 61 72 67 28 41 29 20 3d |-A[2]}.C|arg(A) =|
|000002d0| 20 30 20 77 68 65 6e 20 | 41 5b 31 5d 3d 30 20 61 | 0 when |A[1]=0 a|
|000002e0| 6e 64 20 41 5b 32 5d 3d | 30 2c 20 61 74 61 6e 32 |nd A[2]=|0, atan2|
|000002f0| 28 41 5b 32 5d 2c 41 5b | 31 5d 29 0d 00 00 00 00 |(A[2],A[|1]).....|
|00000300| 00 00 01 00 00 00 01 3c | 00 00 00 3c 00 00 00 52 |.......<|...<...R|
|00000310| 01 62 7a 9f f4 58 01 20 | ab d1 59 9f 58 01 31 47 |.bz..X. |..Y.X.1G|
|00000320| 5e 59 9f 58 01 42 28 6f | 13 2f 3c 46 52 45 46 20 |^Y.X.B(o|./<FREF |
|00000330| 0b 63 6f 6d 70 6c 65 78 | 20 6f 70 73 02 00 00 00 |.complex| ops....|
|00000340| 54 45 58 54 4d 50 61 64 | 01 00 00 34 00 80 00 00 |TEXTMPad|...4....|
|00000350| 00 00 54 45 58 54 4d 50 | 61 64 01 00 00 34 00 80 |..TEXTMP|ad...4..|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 aa 05 95 ee 00 00 | 02 7c 00 00 01 8e 3d 46 |........|.|....=F|
|00000380| 5b 05 2a 0b 9a 94 2e 05 | 5c 87 47 ee 5b 98 60 90 |[.*.....|\.G.[.`.|
|00000390| 55 56 56 52 01 72 04 c1 | 01 a9 e0 33 bb c2 73 01 |UVVR.r..|...3..s.|
|000003a0| 18 e0 9f 2d 3e 9b 8c 4f | 31 01 ec 6c 26 34 20 0d |...->..O|1..l&4 .|
|000003b0| 5a 4d 4c 01 01 ea cc 96 | 6d 01 67 24 3b a4 01 b0 |ZML.....|m.g$;...|
|000003c0| 6b 5e 01 6e 1a 98 20 0d | 3b a4 78 eb 02 3f 33 08 |k^.n.. .|;.x..?3.|
|000003d0| 04 20 0b 5b da 5b 01 67 | 12 35 58 01 29 50 d1 01 |. .[.[.g|.5X.)P..|
|000003e0| 19 7c 66 01 00 2d 46 c4 | 79 2d 94 5c 24 25 26 20 |.|f..-F.|y-.\$%& |
|000003f0| 0d 28 01 01 7e 34 6d 80 | 01 01 22 59 4f 01 3e 28 |.(..~4m.|.."YO.>(|
|00000400| 00 00 00 20 02 00 00 03 | 00 02 3f f9 8e fa 35 12 |... ....|..?...5.|
|00000410| 94 e9 c8 ae 01 60 00 c5 | 00 03 00 28 01 06 01 2c |.....`..|...(...,|
|00000420| 00 f8 00 28 00 00 00 14 | 00 04 06 4d 6f 6e 61 63 |...(....|...Monac|
|00000430| 6f 01 39 06 4d 6f 6e 61 | 63 6f 01 39 00 00 01 00 |o.9.Mona|co.9....|
|00000440| 00 00 01 3c 00 00 00 3c | 00 00 00 52 00 25 54 e4 |...<...<|...R.%T.|
|00000450| 08 74 00 00 00 1c 00 46 | 00 01 50 52 65 66 00 00 |.t.....F|..PRef..|
|00000460| 00 12 53 54 52 23 00 00 | 00 1e 00 80 ff ff 00 00 |..STR#..|........|
|00000470| 00 00 00 25 54 78 00 81 | 00 00 00 00 00 24 00 25 |...%Tx..|.....$.%|
|00000480| 54 10 0b 66 6f 6e 74 20 | 26 20 73 69 7a 65 00 00 |T..font |& size..|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+